Let’s load the EuStockMarkets data.

df <- data.frame(date=as.matrix(time(EuStockMarkets)), EuStockMarkets)
stocks <- melt(df, "date", variable.name = "market", value.name = "points")

Ben